home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
circle.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
286b
|
14 lines
5 scnclr
10 for i% = 0 to 90
20 peno (i% mod 12) + 3
25 j% = i%*2
30 circle (160,95),i%
40 next
190 ask rgb 3, r%,g%,b%
200 for i% = 15 to 3 step -1
210 ask rgb i%, r1%,g1%,b1%
220 rgb i% ,r%,g%,b%
230 r%=r1% : b% = b1% : g% = g1%
240 next
250 goto 190